home *** CD-ROM | disk | FTP | other *** search
/ Libris Britannia 4 / science library(b).zip / science library(b) / PROGRAMM / CC_C / 0574.ZIP / FIDOUNIX.C < prev    next >
C/C++ Source or Header  |  1986-08-12  |  13KB  |  544 lines
  1. static char *RCSid = "$Header: fidounix.c 1.3 86/07/31 23:03:06 rch Exp $";
  2.  
  3. /*
  4.     $Source: BOB/USENET/FIDO/fidounix.c%v $
  5.  
  6.        This file is part of the UN*X Gateway Fido/UNIX code.
  7.        This implements sending Fido messages to UNIX.
  8. */
  9.  
  10. /*
  11.  * $Log:    fidounix.c $
  12.  * Revision 1.3  86/07/31  23:03:06  rch
  13.  * Support stupid SEAdog hard and soft returns.
  14.  * 
  15.  * Revision 1.2  85/12/15  13:27:20  rch
  16.  * Added support for MAILER-DAEMON return of messages
  17.  * 
  18.  * Revision 1.1  85/12/10  01:45:50  rch
  19.  * Initial revision
  20.  * 
  21.  */
  22.  
  23. #include <stdio.h>
  24. #include <fcntl.h>
  25. #include <stat.h>
  26. #include <dos.h>
  27.  
  28. /* Fido Message structure */
  29. typedef struct {
  30.     char from[36];            /* who from */
  31.     char to[36];            /* who to */
  32.     char subj[72];            /* message subject */
  33.     char date[20];            /* creation date */
  34.     int times;            /* number of times read */
  35.     int dest;            /* destination node */
  36.     int orig;            /* originating node */
  37.     int cost;            /* actual cost of msg */
  38.     int orig_net;            /* originating net */
  39.     int dest_net;            /* destination net */
  40.     int caca[4];            /* extra space */
  41.     int reply;            /* thread to previous message */
  42.     int attr;            /* message type, below */
  43.     int up;                /* thread to next message */
  44. } 
  45. MSG, *MSG_PTR;
  46.  
  47. char *fgets(s, n, fp)
  48. char *s; FILE *fp;
  49. {
  50.     register c;
  51.     register char *cp;
  52.     char c1;
  53.  
  54.     cp = s;
  55.     while (--n > 0 && (c = getc(fp)) != EOF) {
  56.         if (c == '\r')
  57.             {
  58.             c1 = getc(fp);
  59.             if (c1 == '\r')
  60.                 c = '\n';
  61.             else
  62.                 ungetc (c1, fp);
  63.             }
  64.         if (c == 0x8d)
  65.             {
  66.             c = '\n';
  67.             c1 = getc(fp);
  68.             if (c1 != '\n')
  69.                 ungetc (c1, fp);
  70.             }
  71.         *cp++ = c;
  72.         if (c == '\n')
  73.             break;
  74.     }
  75.     *cp = 0;
  76.     if (c == EOF && cp == s)
  77.         return NULL;
  78.     return(s);
  79. }
  80.  
  81. main (argc, argv)
  82. int argc;
  83. char *argv[];
  84. {
  85.    FILE *input, *output;
  86.    char *tmp, buf[BUFSIZ], tmp1[1000], tmp2[100], filename[20], mailto[128];
  87.    char fm[36], *f, newname[20];
  88.    extern char *mktemp(), *gets();
  89.    long size, size1, lines;
  90.    int i, orphan;
  91.    MSG msg;
  92.  
  93. filedir ("*.MSG", 0, filename);
  94. while (filename[0] != '\0')
  95. {
  96.     printf ("%s ", filename);
  97.    orphan = 0;
  98.    if ((input = fopen (filename, "r+")) == NULL)
  99.       continue;
  100.    fread (&msg, 1, sizeof (MSG), input);
  101.    if (strcmp (msg.to, "Usenet") != 0)
  102.       {
  103.       if (strcmp (msg.from, "Usenet") != 0)
  104.      {
  105.          fclose (input);
  106.          printf ("not a message to or from 'Usenet'\n");
  107.          filedir ("*.MSG", 1, filename);
  108.          continue;
  109.      }
  110.       else
  111.      {
  112.      if (msg.attr & 64)
  113.         return_mail(&msg, filename, input);
  114.      else
  115.         {
  116.         printf ("is from Usenet and is ok\n");
  117.             fclose (input);
  118.         }
  119.      filedir ("*.MSG", 1, filename);
  120.      continue;
  121.      }
  122.       }
  123.    printf ("%s is a message to 'Usenet': ", filename);
  124.    if (msg.attr & 8)
  125.       {
  126.       printf ("already sent\n");
  127.       fclose (input);
  128.       filedir ("*.MSG", 1, filename);
  129.       continue;
  130.       }
  131.    msg.attr = 9;
  132.    if (fgets (mailto, BUFSIZ, input) == NULL)
  133.       {
  134.       fseek (input, 0L, 0);
  135.       fwrite (&msg, 1, sizeof (MSG), input);
  136.       fclose (input);
  137.       printf ("%s has no characters in it!\n", filename);
  138.       filedir ("*.MSG", 1, filename);
  139.       continue;
  140.       }
  141.    f = mailto;
  142.    while (*f != '\0')
  143.       if ((*f == 10) || (*f == 13) || (*f == 138) || (*f == 141))
  144.      *f = '\0';
  145.       else
  146.      ++f;
  147.    size = 0;
  148.    tmp = mktemp ("junkXXXX.XX");
  149.    output = fopen (tmp, "w");
  150.    get_date ("%w %n %d          %Y", tmp2);
  151.    get_time ("%h:%m:%s", &tmp2[11]);
  152.    strcpy (fm, msg.from);
  153.    f = fm;
  154.    while (*f != '\0')
  155.       if (*f == ' ')
  156.      *f++ = '_';
  157.       else
  158.      f++;
  159.  
  160.    sprintf (tmp1, ">From %d!%d!%s  %s remote from spark\n", msg.orig_net,
  161.       msg.orig, fm, tmp2);
  162.    fprintf (output, tmp1);
  163.    size += strlen (tmp1);
  164.    sprintf (tmp1, "From: spark!%d!%d!%s\n", msg.orig_net, msg.orig, fm);
  165.    fprintf (output, tmp1);
  166.    size += strlen (tmp1);
  167.    sprintf (tmp1, "To: %s", mailto);
  168.    fprintf (output, "%s\n", tmp1);
  169.    size += strlen (tmp1) + 1;
  170.    sprintf (tmp1, "Subject: %s\n", msg.subj);
  171.    fprintf (output, "%s\n", tmp1);
  172.    size += strlen (tmp1) + 1;
  173.  
  174.    while (fgets (buf, BUFSIZ, input) != NULL)
  175.       {
  176.       fprintf (output, "%s", buf);
  177.       size += strlen (buf);
  178.       }
  179.    fclose (output);
  180.    fseek (input, 0L, 0);
  181.    fwrite (&msg, 1, sizeof (MSG), input);
  182.    fclose (input);
  183.    sprintf (tmp1, "#! MAIL-%s %ld\r\n", mailto, size);
  184.    printf ("Sending mail to %s\n", mailto);
  185.    filecopy (tmp, tmp1);
  186.    unlink (tmp);
  187.    unlink (filename);
  188.    filedir ("*.MSG", 1, filename);
  189. }
  190. }
  191.  
  192. filecopy (oldname, str)
  193. char *oldname, *str;
  194. {
  195.     int in, out, c;
  196.     char buf[BUFSIZ];
  197.     char newname[100];
  198.  
  199.     strcpy (newname, "C:/FIDO/VAXINE/REPLY.1");
  200.     in = open (oldname, O_RDONLY);
  201.     out = open (newname, O_CREAT+O_WRONLY+O_APPEND);
  202.     write (out, str, strlen (str));
  203.     while ((c = read (in, buf, BUFSIZ)) == BUFSIZ)
  204.         write (out, buf, BUFSIZ);
  205.     if (c != 0)
  206.         write (out, buf, c);
  207.     close (in);
  208.     close (out);
  209. }
  210.  
  211. /*
  212.         date.c
  213.  
  214.         Author: Bob Hartman
  215.         Date:   6-5-85
  216.  
  217.         This file implements a standardized date routine which is
  218.         callable from Manx AZTEC C-86 compiler.  The format string
  219.         determines the way the date is to be formatted as follows:
  220.  
  221.                 %n - 3 character month name
  222.                 %N - Full month name
  223.                 %m - Month as 2 digits (zero filled if necessary)
  224.                 %d - Day as 2 digits (zero filled if necessary)
  225.         %w - 3 character day of week name
  226.         %W - Full day of week name
  227.                 %y - Year as 2 digits
  228.                 %Y - Year as 4 digits
  229.  
  230.                 A % not followed by one of the above is ignored.
  231.                 All other characters in the format specifier are
  232.                 copied to the output string.
  233. */
  234.  
  235. /* Character used to delimit format specifiers in format strings */
  236. #define ESCAPE_CHAR     '%'
  237. #define DOSINT   0x21
  238.  
  239. /* Month names for date() function */
  240. static char *_months[12] = {
  241.         "January", "February", "March",     "April",   "May",      "June",
  242.         "July",    "August",   "September", "October", "November", "December"
  243. };
  244.  
  245. /* Day of week names for date() function */
  246. static char *_days[7] = {
  247.    "Sunday", "Monday", "Tuesday", "Wednesday", "Thursday", "Friday", "Saturday"
  248. };
  249.  
  250.  
  251. /*
  252.         date (fmt, d)
  253.         char *fmt;
  254.         char *d;
  255.  
  256.         returns in d, the current date in the form specified by the fmt string
  257. */
  258.  
  259. get_date (fmt, d)
  260. register char *fmt;
  261. register char *d;
  262. {
  263.     union REGS    inregs, outregs;
  264.     char    temp[5];        /* To hold date so it can be processed again */
  265.     int w, y, m, d1; 
  266.         
  267.     inregs.x.ax = 0x2a00;
  268.     (void) sysint (DOSINT, &inregs, &outregs);
  269.     w = outregs.h.al;
  270.     y = outregs.x.cx;
  271.     m = outregs.h.dh;
  272.     d1 = outregs.h.dl;
  273.     
  274.     /* Now go through the format string */
  275.     while (*fmt != '\0')
  276.         {
  277.         if (*fmt != ESCAPE_CHAR)
  278.             *d++ = *fmt;
  279.         else
  280.             {
  281.             switch (*(++fmt))
  282.                 {
  283.                 case 'n':
  284.                     sprintf (d, "%.3s", _months[m - 1]);
  285.                     d += 3;
  286.                     break;
  287.                 case 'N':
  288.                     sprintf (d, "%s", _months[m - 1]);
  289.                     d += strlen (d);
  290.                     break;
  291.                 case 'm':
  292.                     sprintf (d, "%02d", m);
  293.                     d += 2;
  294.                     break;
  295.                 case 'd':
  296.                     sprintf (d, "%02d", d1);
  297.                     d += 2;
  298.                     break;
  299.                 case 'w':
  300.                     sprintf (d, "%.3s", _days[w]);
  301.                     d += 3;
  302.                     break;
  303.                 case 'W':
  304.                     sprintf (d, "%s", _days[w]);
  305.                     d += strlen (d);
  306.                     break;
  307.                 case 'y':
  308.                     sprintf (temp, "%04d", y);
  309.                     sprintf (d, "%.2s", temp+2);
  310.                     d += 2;
  311.                     break;
  312.                 case 'Y':
  313.                     sprintf (d, "%04d", y);
  314.                     d += 4;
  315.                     break;
  316.                 default:
  317.                     *d++ = *fmt;
  318.                 }
  319.             }
  320.         ++fmt;
  321.         }
  322.     *d = '\0';      /* Just to be sure that it is null terminated */
  323. }
  324.  
  325. /*
  326.         time.c
  327.  
  328.         Author: Robert Hartman
  329.         Date:   6-5-85
  330.  
  331.         This file implements a standardized time routine which is
  332.         callable from Manx AZTEC C-86 compiler.  The format string
  333.         determines the way the time is to be formatted as follows:
  334.  
  335.                 %h - 2 digits for hours (24 hour clock)
  336.                 %H - 2 digits for hours (12 hour clock)
  337.                 %m - 2 digits for minutes
  338.                 %s - 2 digits for seconds
  339.                 %t - 2 digits for hundredths of a second
  340.                 %i - am/pm indicator
  341.                 %I - AM/PM indicator
  342.  
  343.                 A % not followed by one of the above is ignored.
  344.                 All other characters in the format specifier are
  345.                 copied to the output string.
  346. */
  347.  
  348.  
  349. /* Character used to delimit format specifiers in format strings */
  350. #define ESCAPE_CHAR     '%'
  351. #define DOSINT   0x21
  352.  
  353. /*
  354.         time (fmt, t)
  355.         char *fmt;
  356.         char *t;
  357.  
  358.         returns in t, the current time in the form specified by the fmt string
  359. */
  360.  
  361. get_time (fmt, t)
  362. register char *fmt;
  363. register char *t;
  364. {
  365.     union REGS    inregs, outregs;
  366.     int h, m, s, ms;
  367.  
  368.     inregs.x.ax = 0x2c00;
  369.     (void) sysint (DOSINT, &inregs, &outregs);
  370.     h = outregs.h.ch;
  371.     m = outregs.h.cl;
  372.     s = outregs.h.dh;
  373.     ms = outregs.h.dl;
  374.     /* Now go through the format string */
  375.     while (*fmt != '\0')
  376.         {
  377.         if (*fmt != ESCAPE_CHAR)
  378.             *t++ = *fmt;
  379.         else
  380.             {
  381.             switch (*(++fmt))
  382.                 {
  383.                 /* hours (24 hour clock) */
  384.                 case 'h':
  385.                     sprintf (t, "%02d", h);
  386.                     t += 2;
  387.                     break;
  388.                 /* hours (12 hour clock) */
  389.                 case 'H':
  390.                     sprintf (t, "%02d", (h % 12) ?    (h % 12) : 12);
  391.                     t += 2;
  392.                     break;
  393.                 /* minutes */
  394.                 case 'm':
  395.                     sprintf (t, "%02d", m);
  396.                     t += 2;
  397.                     break;
  398.                 /* seconds */
  399.                 case 's':
  400.                     sprintf (t, "%02d", s);
  401.                     t += 2;
  402.                     break;
  403.                 /* hundredths of a second */
  404.                 case 't':
  405.                     sprintf (t, "%02d", ms);
  406.                     t += 2;
  407.                     break;
  408.                 /* am/pm indicator */
  409.                 case 'i':
  410.                     sprintf (t, "%s", (h < 12) ? "am" : "pm");
  411.                     t += 2;
  412.                     break;
  413.                 /* AM/PM indicator */
  414.                 case 'I':
  415.                     sprintf (t, "%s", (h < 12) ? "AM" : "PM");
  416.                     t += 2;
  417.                     break;
  418.                 default:
  419.                     *t++ = *fmt;
  420.                 }
  421.             }
  422.         ++fmt;
  423.         }
  424.     *t = '\0';      /* Just to be sure that it is null terminated */
  425. }
  426.  
  427. filedir (name, times, ret_str)
  428. char *name;
  429. int times;
  430. char *ret_str;
  431. {
  432.     static struct {
  433.     char rsvd[21];
  434.     char attr;
  435.     long ftime;
  436.     long fsize;
  437.     char fname[13];
  438.     } 
  439.     sbuf;
  440.  
  441.  
  442.     bdos (0x1a, &sbuf);
  443.     if (times == 0) {
  444.         if (dos (0x4e, 0, ~ST_VLABEL, name, 0, 0) == -1) 
  445.             sbuf.fname[0] = '\0';
  446.         strcpy (ret_str, sbuf.fname);
  447.     }
  448.     else {
  449.         if (dos (0x4f, 0, ~ST_VLABEL, name, 0, 0) == -1) 
  450.             sbuf.fname[0] = '\0';
  451.         strcpy (ret_str, sbuf.fname);
  452.     }
  453. }
  454.  
  455. return_mail(msg, filename, input)
  456. MSG_PTR msg;
  457. char *filename;
  458. FILE *input;
  459. {
  460.    FILE *output;
  461.    char *tmp, buf[BUFSIZ], tmp1[1000], tmp2[100], mailto[128];
  462.    char fm[36], *f, newname[20];
  463.    extern char *mktemp(), *gets();
  464.    long size, size1, lines;
  465.    int i, orphan;
  466.  
  467.    printf ("is from Usenet and is an orphan: ");
  468.    for (;;)
  469. {
  470.    if (fgets (mailto, BUFSIZ, input) == NULL)
  471.       {
  472.       fseek (input, 0L, 0);
  473.       fwrite (&msg, 1, sizeof (MSG), input);
  474.       printf ("no From: line\n");
  475.       fclose (input);
  476.       return;
  477.       }
  478.    if (strncmp (mailto, "From: ", 6) == 0)
  479.       break;
  480. }
  481.    f = &mailto[6];
  482.    f = mailto;
  483.    while (*f != '\0')
  484.       if ((*f == 10) || (*f == 13) || (*f == 138) || (*f == 141))
  485.      *f = '\0';
  486.       else
  487.      ++f;
  488.    size = 0;
  489.    tmp = mktemp ("junkXXXX.XX");
  490.    output = fopen (tmp, "w");
  491.    get_date ("%w %n %d          %Y", tmp2);
  492.    get_time ("%h:%m:%s", &tmp2[11]);
  493.    strcpy (fm, msg->from);
  494.    f = fm;
  495.    while (*f != '\0')
  496.       if (*f == ' ')
  497.      *f++ = '_';
  498.       else
  499.      f++;
  500.  
  501.    sprintf (tmp1, ">From MAILER-DAEMON  %s remote from spark\n", tmp2);
  502.    fprintf (output, tmp1);
  503.    size += strlen (tmp1);
  504.    sprintf (tmp1, "From: spark!MAILER-DAEMON\n");
  505.    fprintf (output, tmp1);
  506.    size += strlen (tmp1);
  507.    sprintf (tmp1, "To: %s", &mailto[6]);
  508.    fprintf (output, "%s\n", tmp1);
  509.    size += strlen (tmp1)+1;
  510.    sprintf (tmp1, "Subject: Returned mail - Fido node non-existant\n");
  511.    fprintf (output, "%s\n", tmp1);
  512.    size += strlen (tmp1);
  513.    sprintf (tmp1, "   ----- Transcript of session follows -----\n");
  514.    fprintf (output, "%s", tmp1);
  515.    size += strlen (tmp1);
  516.    sprintf (tmp1, "\n     %d!%d - Fido node non-existant\n\n", msg->dest_net, msg->dest);
  517.    fprintf (output, "%s", tmp1);
  518.    size += strlen (tmp1);
  519.    sprintf (tmp1, "   ----- Unsent message follows -----\n\n");
  520.    fprintf (output, "%s", tmp1);
  521.    size += strlen (tmp1);
  522.  
  523.    fprintf (output, "%s\n", mailto);
  524.    size += strlen (mailto)+1;
  525.    sprintf (tmp1, "To: %d!%d!%s\n", msg->dest_net, msg->dest, msg->to);
  526.    fprintf (output, "%s", tmp1);
  527.    size += strlen (tmp1);
  528.    while (fgets (buf, BUFSIZ, input) != NULL)
  529.       {
  530.       fprintf (output, "%s", buf);
  531.       size += strlen (buf);
  532.       }
  533.    fclose (output);
  534.    fseek (input, 0L, 0);
  535.    fwrite (&msg, 1, sizeof (MSG), input);
  536.    fclose (input);
  537.    sprintf (tmp1, "#! MAIL-%s %ld\r\n", &mailto[6], size);
  538.    printf ("Sending mail back to %s\n", &mailto[6]);
  539.    filecopy (tmp, tmp1);
  540.    unlink (tmp);
  541.     unlink (filename);
  542. }
  543.  
  544.